RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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KK KK 
KK KK 
KK KK 
KK KK 
KK KK 
KK KK 
KKKKKK 
KKKKKK 

KK KK 
KK KK 
KK KK 
Ke KK 
KK KK 
KK KK 
RRRRRRRR 
RRRRRRRR 
RR RR 
RR RR 
RR RR 
RR RR 
RRRRRRRR 
RRRRRRRR 
RR RR 

RR RR 

RR RR 
RR RR 
RR RR 
RR RR 


E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
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et ee 


be be 
ba 
oe ae 


ft nd at bt Ot bt ns Oe bt Ot Os 
feat Get Gas bi bee Dae Bend pees be bt bn bs be 


be 
bat 
et be 
bt be 


AAS ot St St Ht St Ht St Ht Ht 
AAA st st tS HH HH 
mmmmmmmmmmmmmm 
Mmmmmmmmmmmmmmm 
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Version: *v04-000' 


PASS RSS ESSE SIS TESTE TTT eT TT Terre r rrr T eT TTT TTT TTT ITT TTT TTT Titi titiiity 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COP 
ONLY IN ACCORDANCE WITH TH R F SUCH LICENSE AND ad 
0 
E 


NC N THE C CE. THI 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE T 
viercaacee” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HER 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE W 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGI 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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r= 
mm 
oO 
Cc 
_— 
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MASSA SLLISELI SSS CETTE TES TTT TTT Tee eee cece eee cece tT cece eect ccc i steerer ii it se ff 
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FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

! ABSTRACT: Defines macros for fields of key word entries. 
! ENVIRONMENT: Transportable BLISS 

i AUTHOR: Rich Friday CREATION DATE: 1978 
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! MODIFIED BY: 


005 REROOOOS andall 17-Mar-1983 
Changed iih to ie” A. “better reflect its topnote function. 
004 RERO0004 Ron Randall 07-Mar-1983 


Global edit of all modules. Updated ag names, idents, 
copyright dates. Changed require files BLISS lib brary. 
Changed all <macro name>s to kwitem_ ceacre _name> to avoid 
conflict with LP1.B8LI. 
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MACRO 

Length of keyword. 
item Length (item) = 

BEGI 

BIND x = .item (0): VECTOR; 

x £0 
: END i, 
; Address of keyword, CHSPTR. 
p.word (item) = 

BEGI 

BIND x = .item (OJ: VECTOR; 

x (1) 

END %, 
; Handler code. 
kwitem_handier_code (item) = 
; Same field does double duty. 
kwitemnext_list (item) = 
ALL options collectivally. 
kwitem_actions (item) = 
TRUE if keyword chain continues. 
kwitem_chain_cont inues (item) = 
; TRUE if a defined abbreviation. 
kwitem abbreviation (item) = 
TRUE for commands related to .IF. 
kwitem_rif (item) = 
; TRUE if illegal in a footnote. 
kwitemiif (item) = 


kwitem_do_outnj (item) = 


kwitem_do_getnum (item) = 
TRUE if illegal in a topnote. 
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item (1) %, 


item (1) %, 


item (2) %, 


(item (2]) <8, 1> %, 


(item (2)) <9, 1> %, 


item <10, 1> %, 


item <11, 1> %, 


TRUE if waiting text to be forced out. 


item <12, 1> %, 


TRUE if command has a numerical argument. 


item <13, 1> %, 


bot 
708.61 Page 3 


wef 
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kwitem iit (item) = item <14, 1> %, 
: Minimum number of characters for a match. 
kwitem_minimum_match (item) = (item (2]) <0, 8> %; 

! End of KWITEM.REQ 
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